setdisplay(320,200,32,1):paper(0xFFFFFF):ink(0x000000):pen(0x000000):cls
common a$:common b$[10]
sub sharearray
   a$="text set inside sub"
   b$[2]="some more text"
   prints("from inside the sub")
   prints("a$= "+a$) : prints("b$[2]= "+b$[2])
 end sub
sharearray
   prints(""):prints("from the module")
   prints("a$= "+a$) : printS("b$[2]= "+b$[2])
   waitKey
